Type TrackPlayerProcess Extends TrackPlayer

	Field command:String
	Field process:TProcess
	Field track:TrackInformation

	Method play()
		If process Then
			stop()
		End If
		process = TProcess.Create(command, 0)
	End Method
	
	Method stop()
		If Not process Then
			Return
		End If
		process.Terminate()
		process.Close()
		process = Null
	End Method
	
	Method isPlaying:Int()
		If process And process.Status() <> 0 Then
			Return True
		End If
		Return False
	End Method
	
	Method currentTrack:TrackInformation()
		Return track
	End Method
	
End Type

